Application.ModelessCmd("g4")
Application.ModelessCmd("gd4")
Application.StatusBarText = "Set Grids = 4"